unit uniMainToolkit;

interface

uses
  Classes;

type

  Key =
    (
    KeyEnter,
    KeySpace,
    KeyTab,
    KeyEscape,
    KeyUp,
    KeyDown,
    KeyLeft,
    KeyRight
    );

  Button =
    (
    Left,
    Middle,
    Right
    );


  { MainToolkit }

  MainToolkit = class(TObject)
  public
    constructor Create(argc: Integer = 0; argv: string = '');
    destructor Destroy; override;

    function run: Boolean; virtual;
    function checkErrors: Boolean; virtual;

    procedure setVideoMode; virtual;

    procedure grabMouse(state: Boolean); virtual;
  end;


implementation

{ MainToolkit }


function MainToolkit.checkErrors: Boolean;
begin

end;

constructor MainToolkit.Create(argc: Integer; argv: string);
begin

end;

destructor MainToolkit.Destroy;
begin

  inherited;
end;

procedure MainToolkit.grabMouse(state: Boolean);
begin

end;

function MainToolkit.run: Boolean;
begin

end;

procedure MainToolkit.setVideoMode;
begin

end;

end.

